home *** CD-ROM | disk | FTP | other *** search
/ SPACE 2 / SPACE - Library 2 - Volume 1.iso / utility / 681 / d_sound / gfstst.gfa (.txt) next >
GFA-BASIC Atari  |  1987-04-21  |  2KB  |  48 lines
  1. REM ******************************************************
  2. REM * Simple PLAYBACK Demo for GFA Basic version 2 and 3 *
  3. REM * by A.R and D.A.W. (C)2-BIT systems LTD         *
  4. REM ******************************************************
  5. REM * Reserve memory for code & sample     *
  6. REM * & allocate addresses for each     *
  7. REM **************************************
  8. DIM a%(2000),b%(5000)
  9. code%=VARPTR(a%(0))
  10. sample%=VARPTR(b%(0))
  11. REM ***************************
  12. REM * Load code & Demo sample *
  13. REM ***************************
  14. PRINT "Loading Code..."
  15. BLOAD "SOUND.EXE",code%
  16. start%=code%+28
  17. kilsnd%=code%+32
  18. PRINT "Loading Sample."
  19. BLOAD "replay.spl",sample%
  20. REM *************************
  21. REM * Sample data :-        *
  22. REM *    length =  6940 bytes*
  23. REM *************************
  24. length%=6940+sample%
  25. FOR speed%=12 TO 16
  26.   REM ******************************
  27.   REM * Poke Sample data into code *
  28.   REM ******************************
  29.   LPOKE code%+44,sample%
  30.   LPOKE code%+48,length%
  31.   LPOKE code%+40,speed%
  32.   REM *************************
  33.   REM * Now REPLAY the sample *
  34.   REM *************************
  35.   PRINT "Playing sample at speed ";speed%;" kHz"
  36.   CALL start%
  37.   PRINT
  38.   PRINT "doing ";speed%;" kHz"
  39.   PRINT
  40. label:
  41.   x%=LPEEK(code%+56)
  42.   IF x%<>0
  43.     GOTO label
  44.   ENDIF
  45. NEXT speed%
  46. PRINT "Finished."
  47. END
  48.